;sort the given number lst

(setf a '(0 2 3 4 9 1 8)
			b '(1 3 2 6 5 10))

(format t "before sort: ~A" a)
(format t "~A after sort: ~A~%" a (sort a #'>))

; check if list a has been changed

